﻿Imports Dainfo.ControleEstoque.Model
Imports Dainfo.ControleEstoque.Dados



Partial Public Class CadastroClientes
    Inherits System.Web.UI.Page

    Dim id As Integer = 0
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        id = Convert.ToString(Request.QueryString("id"))
        If Not IsPostBack Then
            If id > 0 Then

                Dim dadosCliente As New DadosCliente()
                Dim cliente As Cliente = dadosCliente.GetById(id)

                txtNome.Text = cliente.Nome
                txtCPF_CNPJ.Text = cliente.CPF_CNPJ
                txtEndereco.Text = cliente.Endereco
                txtBairro.Text = cliente.Bairro
                txtCidade.Text = cliente.Cidade

                ddlEstado.SelectedValue = cliente.Estado
                txtCEP.Text = cliente.CEP
                txtTel1.Text = cliente.Telefone1
                txtTel2.Text = cliente.Telefone2

                txtEmail.Text = cliente.Email
                txtObs.Text = cliente.Observacoes
                txtMsn.Text = cliente.Messenger
            End If
        End If
        


    End Sub

    Protected Sub btnSalvar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSalvar.Click
        Dim cliente As New Cliente()
        cliente.Nome = txtNome.Text
        cliente.CPF_CNPJ = txtCPF_CNPJ.Text
        cliente.Endereco = txtEndereco.Text
        cliente.Bairro = txtBairro.Text
        cliente.Cidade = txtCidade.Text
        cliente.Estado = ddlEstado.SelectedValue
        cliente.CEP = txtCEP.Text
        cliente.Telefone1 = txtTel1.Text
        cliente.Telefone2 = txtTel2.Text
        cliente.Email = txtEmail.Text
        cliente.Observacoes = txtObs.Text
        cliente.Messenger = txtMsn.Text


        Dim dadosCliente As New DadosCliente()

        If id < 1 Then
            dadosCliente.Insert(cliente)
        Else
            cliente.Codigo = id
            dadosCliente.Update(cliente)
        End If
        Response.Redirect("PesquisaClientes.aspx")
    End Sub
End Class